this is an example text

google

x <- 1:5
print(x)
## [1] 1 2 3 4 5
2 + 4
## [1] 6
max_height <- max(women$height)

the maximum height in the women dataset is 72

women
##    height weight
## 1      58    115
## 2      59    117
## 3      60    120
## 4      61    123
## 5      62    126
## 6      63    129
## 7      64    132
## 8      65    135
## 9      66    139
## 10     67    142
## 11     68    146
## 12     69    150
## 13     70    154
## 14     71    159
## 15     72    164
pacman::p_load(flextable,gt,reactable)
flextable::flextable(women)

height

weight

58

115

59

117

60

120

61

123

62

126

63

129

64

132

65

135

66

139

67

142

68

146

69

150

70

154

71

159

72

164

gt::gt(women)
height weight
58 115
59 117
60 120
61 123
62 126
63 129
64 132
65 135
66 139
67 142
68 146
69 150
70 154
71 159
72 164
reactable::reactable(women)